home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / bust_anim.ifx < prev    next >
Text File  |  2004-08-03  |  750b  |  36 lines
  1. /*
  2.  * Bust_Anim.ifx - break any type of animation into individual frames
  3.  *
  4.  * Arexx program for AutoFX
  5.  * Written by Thomas Krehbiel
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Frame number (1 - N)
  9.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  10.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  11.  *    Word(Arg(1),4) = Sequence number
  12.  *    Word(Arg(1),5) = Total number of frames (N)
  13.  *
  14.  * Returns:
  15.  *    0 if successful, non-zero on failure
  16.  *
  17.  */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. filename = Word(Arg(1),2)
  22.  
  23. frame = 1
  24. DO FOREVER
  25.    framename = filename||'.'||RIGHT('0000'||frame,5)
  26.    Message 'Creating' framename
  27.    LoadMapped filename frame
  28.    IF rc ~= 0 THEN LEAVE
  29.    SaveRenderedAs ILBM framename
  30.    frame = frame + 1
  31.    END
  32.  
  33. KillMapped
  34.  
  35. EXIT
  36.